  10 F=0;G=0;I=0;J=0;NT=1
  20 clear ;BC=0;FC=126;&(0)=0;&(1)=0;&(2)=126;&(3)=0
  30 input "DIFFICULTY:0right 1?"N
  40 print "HOW MANY
  50 input "LASER BLASTS ?"U
  60 input "MAX SCORE ?"H
  70 input "2 PLAYERS ?"L;if L=1input "ACCURACY OF COMPUTER:0right 2?"M
  80 clear ;for A=1to 50;B=rnd (130)-65;C=rnd (88)-44
  90 box B,C,1,1,1;next A;CX=-17;CY=40;print "left SCOREright 
 100 CX=-77;CY=32;print #10,J,#B,I;if L=1goto 300
 200 K=KN(1)div 4-6;D=KN(2)div 4-6
 210 box -75,K 4,4,3;box 75,D,4,4,3
 220 if F>=U-5box 75,K,2,2,3
 230 if G>=U-5box 75,D,2,2,3
 240 if F>=U-5box -75,K,2,2,3
 250 if G>=U-5box 75,D,2,2,3
 260 box -75,K,4,4,3;box 75,D,4,4,3
 270 if F=Uif G=Ugoto 1000
 280 if (TR(1))-(TR(2))goto 500
 290 goto 200
 300 D=rnd (76)-38
 310 K=KN(1)div 4-6;D=D+rnd (10)-5
 320 if D>25D=25
 330 if D<-38D=-38
 340 box -75,K,4,4,3;box 75,D,4,4,3
 350 if F>=U-5box -75,K,2,2,3
 360 if G>=U-5box 75,D,2,2,3
 370 if F>=U-5box -75,K,2,2,3
 380 if G>=U-5box 75,D,2,2,3
 390 box -75,K,4,4,3;box 75,D,4,4,3
 400 if F=Uif G=Ugoto 1000
 410 if F=Ugoto 440
 420 if TR(1)goto 600
 430 if G=Ugoto 310
 440 if M=1goto 480
 450 if M=2goto 490
 460 if K>D-1if K<D+1goto 700
 470 goto 310
 480 if K>D-3if K<D+3goto 700
 485 goto 310
 490 if K>D-6if K<D+6goto 700
 495 goto 310
 500 if F=Ugoto 530
 510 if TR(1)goto 600
 520 if G=Ugoto 200
 530 if TR(2)goto 700
 540 goto 200
 600 box -75,K,4,4,1;box 75,D,4,4,1
 610 F=F+1;line -73,K,4;line 75,K,3
 620 &(16)=255;&(21)=255;&(23)=44
 630 line -73,K,4;line 75,K,3;line 0,0,4;&(16)=0;&(21)=0;&(23)=0;if N=1goto 670
 640 if K>D-2if K<D+2gosub 800
 650 box -75,K,4,4,2;box 75,D,4,4,2;if L=1goto 300
 660 goto 200
 670 if K>D-3if K<D+3gosub 800
 680 goto 650
 700 box 75,D,4,4,1;box -75,K,4,4,1
 710 G=G+1;line 73,D,4;line -75,D,3
 720 &(23)=255;&(21)=255
 730 line 73,D,4;line -75,D,3;line 0,0,4;&(21)=0;&(23)=0;if L=2if N=1goto 770
 740 if D>K-2if D<K+2gosub 900
 750 box 75,D,4,4,2;box -75,K,4,4,2;if L=1goto 300
 760 goto 200
 770 if D>K-3if D<K+3gosub 900
 780 goto 750
 800 for E=1to 10;&(9)=37;&(2)=90
 810 for P=0to 1
 820 box 75+rnd (4)-2,D+rnd (4)-2,2,2,3;next P
 830 MU=""";next E;&(2)=126;&(9)=50
 840 J=J+1;CX=-77;CY=32;print #10,J
 850 if J=Hgoto 1000
 860 box 75,D,10,10,2;return 
 900 for E=1to 10;&(9)=4;FC=90
 910 for P=0to 1
 920 box -75+rnd (4)-2,K+rnd (4)-2,2,2,3;next P
 930 MU=""";next E;FC=126;&(9)=50
 940 I=I+1;CX=-17;CY=32;print I
 950 if I=Hgoto 1000
 960 box -75,K,10,10,2;return 
1000 CX=-23;CY=0;print "GAME OVER
1010 R=KP;if R=13goto 10
:return ;run  
